home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / c / snowfall / writepixel.a < prev   
Text File  |  1980-01-04  |  404b  |  24 lines
  1.       XDEF  wp,_wp
  2.  
  3.       SECTION  "wp",code
  4.  
  5. wp:
  6.       movem.l  d0-d5/a0,-(sp)
  7.       mulu     #40,d1
  8.       divu     #8,d0
  9.       add.w    d0,d1
  10.       swap     d0
  11.       adda.l    d1,a0
  12.       move.b   (a0),d3
  13.       moveq    #0,d4
  14.       moveq    #7,d5
  15.       sub.b    d0,d5
  16.       bset     d5,d4
  17.       or.b     d4,d3
  18.       move.b   d3,(a0)
  19.       movem.l  (sp)+,d0-d5/a0
  20.       rts
  21. _wp      equ   wp
  22.  
  23.       END
  24.